home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / pcboard / newuserq.zip / NEWUSER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-01-12  |  4KB  |  256 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     Integer  INTEGER006
  24.     Integer  INTEGER007
  25.     String   TSTRING001(3)
  26.     String   STRING002
  27.     String   STRING003
  28.     String   TSTRING004(4)
  29.     String   STRING005
  30.     String   STRING006
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     DispFile PPEPath() + "start.txt", 1
  35.     Cls
  36.     Print "@POFF@"
  37.     STRING005 = ReadLine(PPEPath() + "newuser.cfg", 1)
  38.     If (STRING005 == "") STRING005 = PPEPath() + "answers.txt"
  39.     FAppend 1, STRING005, 2, 0
  40.     FPutLn 1, ""
  41.     FPutLn 1, ""
  42.     FPutLn 1, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  43.     FPut 1, U_Name()
  44.     FPut 1, "     "
  45.     FPut 1, Time()
  46.     FPut 1, "     "
  47.     FPutLn 1, Date()
  48.     FPutLn 1, Modem()
  49.     FPutLn 1, ""
  50.     TSTRING001(1) = "@X08"
  51.     TSTRING001(2) = "@X07"
  52.     TSTRING001(3) = "@X0F"
  53.     STRING003 = "New User Questionnaire"
  54.     Gosub LABEL002
  55.     Delay 20
  56.     Gosub LABEL003
  57.     STRING003 = "By Lord Blix, 1996"
  58.     Gosub LABEL002
  59.     Delay 20
  60.     Gosub LABEL003
  61.     Delay 10
  62.     Print "@X05"
  63.     Gosub LABEL007
  64.     :LABEL001
  65.     INTEGER007 = 4
  66.     INTEGER004 = 0
  67.     INTEGER005 = 0
  68.     INTEGER003 = INTEGER003 + 1
  69.     STRING003 = ReadLine(PPEPath() + "question.txt", INTEGER003)
  70.     If (STRING003 == "") Goto LABEL011
  71.     If (Left(STRING003, 1) == "*") Then
  72.         INTEGER005 = 1
  73.         Print "@X0C"
  74.         Gosub LABEL007
  75.         STRING003 = Right(STRING003, Len(STRING003) - 1)
  76.     Endif
  77.     If (Right(STRING003, 1) == "*") Then
  78.         INTEGER007 = 1
  79.         STRING003 = Left(STRING003, Len(STRING003) - 1)
  80.     Endif
  81.     Gosub LABEL002
  82.     AnsiPos 1, 20
  83.     Gosub LABEL008
  84.     Gosub LABEL010
  85.     If (INTEGER005) Then
  86.         INTEGER005 = 0
  87.         Print "@X05"
  88.         Gosub LABEL007
  89.     Endif
  90.     Gosub LABEL003
  91.     Goto LABEL001
  92.     End
  93.     :LABEL002
  94.     For INTEGER002 = 1 To 3
  95.         AnsiPos 16, 9
  96.         Print TSTRING001(INTEGER002)
  97.         Print STRING003
  98.         Delay 2
  99.     Next
  100.     Return
  101.     :LABEL003
  102.     For INTEGER002 = 3 To 1 Step -1
  103.         AnsiPos 16, 9
  104.         Print TSTRING001(INTEGER002)
  105.         Print STRING003
  106.         Delay 2
  107.     Next
  108.     AnsiPos 16, 9
  109.     Print "                                                        "
  110.     Return
  111.     :LABEL004
  112.     STRING006 = ""
  113.     :LABEL005
  114.     STRING006 = Inkey()
  115.     If (STRING006 == "") Goto LABEL005
  116.     If (STRING006 == Chr(13)) Return
  117.     If (STRING006 == Chr(8)) Gosub LABEL006
  118.     If (STRING006 == ",") STRING006 = ""
  119.     If (Len(STRING006) <> 1) Goto LABEL004
  120.     If (Len(STRING002) < 47) Then
  121.         Print STRING006
  122.         STRING002 = STRING002 + STRING006
  123.     Endif
  124.     Goto LABEL004
  125.     Return
  126.     :LABEL006
  127.     STRING006 = ""
  128.     If (Len(STRING002) < 1) Return
  129.     STRING002 = Left(STRING002, Len(STRING002) - 1)
  130.     Print Chr(8) + " " + Chr(8)
  131.     Return
  132.     :LABEL007
  133.     AnsiPos 1, 10
  134.     PrintLn "               ┌───────────────────────────────────────────────┐"
  135.     PrintLn "               │                                               │"
  136.     PrintLn "               │                                               │"
  137.     PrintLn "               │                                               │"
  138.     PrintLn "               │                                               │"
  139.     PrintLn "               └───────────────────────────────────────────────┘"
  140.     If (INTEGER005) Then
  141.         AnsiPos 48, 15
  142.         Print "@X0Fanswer required"
  143.     Endif
  144.     Return
  145.     :LABEL008
  146.     INTEGER004 = INTEGER004 + 1
  147.     STRING002 = ""
  148.     :LABEL009
  149.     AnsiPos 17, 10 + INTEGER004
  150.     Print "@X0B"
  151.     Gosub LABEL004
  152.     If (((STRING002 == "") && (INTEGER005 == 1)) && (INTEGER004 == 1)) Goto LABEL009
  153.     If (STRING002 == "") Then
  154.         INTEGER004 = INTEGER004 - 1
  155.     Else
  156.         TSTRING004(INTEGER004) = STRING002
  157.         If (INTEGER004 < INTEGER007) Goto LABEL008
  158.     Endif
  159.     Return
  160.     :LABEL010
  161.     If (INTEGER004 == 0) Then
  162.         FPutLn 1, "(" + STRING003 + ") Refused Answer"
  163.         Return
  164.     Endif
  165.     If (INTEGER005) FPut 1, "(" + STRING003 + ")(REQUIRED) "
  166.     If (!INTEGER005) FPut 1, "(" + STRING003 + ") "
  167.     If (INTEGER004 == 1) Then
  168.         FPut 1, TSTRING004(1)
  169.     Else
  170.         FPutLn 1, ""
  171.         For INTEGER002 = 1 To INTEGER004
  172.             FPutLn 1, TSTRING004(INTEGER002)
  173.         Next
  174.     Endif
  175.     FPutLn 1, ""
  176.     For INTEGER002 = 1 To 4
  177.         TSTRING004(INTEGER002) = ""
  178.     Next
  179.     INTEGER004 = 0
  180.     Print "@X05"
  181.     Gosub LABEL007
  182.     Return
  183.     :LABEL011
  184.     DispFile PPEPath() + "end.txt", 1
  185.     INTEGER006 = ReadLine(PPEPath() + "newuser.cfg", 2)
  186.     If (INTEGER006 > 0) Then
  187.         U_Sec = INTEGER006
  188.     Endif
  189.     End
  190.  
  191. ;------------------------------------------------------------------------------
  192. ;
  193. ; Usage report (before postprocessing)
  194. ;
  195. ; ■ Statements used :
  196. ;
  197. ;    2       End
  198. ;    1       Cls
  199. ;    26      Goto 
  200. ;    39      Let 
  201. ;    14      Print 
  202. ;    6       PrintLn 
  203. ;    25      If 
  204. ;    2       DispFile 
  205. ;    1       FAppend 
  206. ;    7       FPut 
  207. ;    10      FPutLn 
  208. ;    14      Gosub 
  209. ;    10      Return
  210. ;    5       Delay 
  211. ;    7       AnsiPos 
  212. ;
  213. ;
  214. ; ■ Functions used :
  215. ;
  216. ;    3       -
  217. ;    22      +
  218. ;    4       -
  219. ;    14      ==
  220. ;    1       <>
  221. ;    7       <
  222. ;    4       <=
  223. ;    1       >
  224. ;    8       >=
  225. ;    14      !
  226. ;    10      &&
  227. ;    4       ||
  228. ;    6       Len(
  229. ;    3       Left()
  230. ;    2       Right()
  231. ;    4       Chr()
  232. ;    1       Date()
  233. ;    1       Time()
  234. ;    1       U_Name()
  235. ;    1       Inkey()
  236. ;    6       PPEPath()
  237. ;    3       ReadLine()
  238. ;    1       Modem()
  239. ;
  240. ;------------------------------------------------------------------------------
  241. ;
  242. ; Analysis flags : No flag
  243. ;
  244. ;------------------------------------------------------------------------------
  245. ;
  246. ; Postprocessing report
  247. ;
  248. ;    4       For/Next
  249. ;    0       While/EndWhile
  250. ;    9       If/Then or If/Then/Else
  251. ;    0       Select Case
  252. ;
  253. ;------------------------------------------------------------------------------
  254. ;                 AEGiS Corp - Break the routines, code against the machines!
  255. ;------------------------------------------------------------------------------
  256.